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club commodore 



EDITORIAL 




ya llegan 
vacaciones y 
M.E.C. SOFT, 
en "CLUB COMMODO 



II 



Uomo ya ha llegado el verano y — se- 
gún sesudos estudios demuestran am- 
pliamente — la actividad de programar 
produce un incremento de la temperatu- 
ra corporal (sobre todo en la zona del 
cráneo), vamos a dedicar este número 
a listar unos cuantos juegos. El aspecto 
térmico parece que no afecta a la gente 
de M.E.C. SOFT., entre otras razones 
porque tienen un estupendo acondicio- 
nador de aire en su cubil. En este ejem- 
plar no sólo continúan con sus seccio- 
nes habituales VENTANA CBM Y FI- 
CHEROS RELATIVOS sino que ade- 
más inician una serie muy importante 
que esperamos que interese a muchos 
de nuestros lectores: ALMACENA- 
MIENTO EN DISCOS que a cargo de 
M. AMADO tratará de explicar, de ma- 
nera comprensible para cualquier per- 
sona interesada, el funcionamiento de 
TODAS las unidades de disco de COM- 
MODORE y la manera de utilizarlas. 
También debemos mencionar — aun- 
que no como novedad de este núme- 
ro — la serie de artículos de J. SASTRE 
sobre un tipo de ficheros muy útiles: los 
RELATIVOS. Para finalizar con el de- 
sembarco de M.E.C. SOFT, en CLUB 
COMMODORE, R. NAVARRO se ha 
hecho cargo del manejo de la VENTA- 
NA CBM que esperamos abra nuevos 
horizontes a usuarios y programadores. 
Después de todo esto, BUG parece se- 
riamente desmoralizado. 

¡Bien! Ahora a tomarse el verano de 
la manera más fresca posible y, como 
es tradicional en estos casos, a llenarse 



la mente de buenos propósitos para es- Volveremos en septiembre. La próxi- 
tas vacaciones (como preparar unas ma edición aparecerá después de los ri- 
cuantas colaboraciones, por ejemplo). gores estivales. m 
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£in el número anterior hablamos de 
los Ficheros Relativos en BASIC 4. 
Más de un propietario de «VIC-20» o 
«Commodore 64» habrá quedado de- 
cepcionado, pues estos aparatos es- 
tán dotados de BASIC 2 y, por tan- 
to, no disponen de las instrucciones 
DOPEN # , DCLOSE # y RECORD # pa- 
ra el manejo de los Relativos. Para 
solventarlo, este mes dividiremos el 
artículo en dos partes: en la primera 
explicaremos cómo trabajar con los 
Relativos utilizando el BASIC 2 y, en 
la segunda, describiremos de manera 
general el tratamiento que el DOS da 
a los Relativos, cosa que afecta tanto 
al BASIC 2 como al BASIC 4. 

FICHEROS RELATIVOS 
EN BASIC 2 

En primer lugar, conviene saber que 
los Ficheros Relativos son una función 
del DOS (sistema operativo del disco), 
y no del OS (sistema operativo de la 
CPU). Pueden trabajar con Ficheros 
Relativos todas las unidades de discos 
dotadas de DOS 2.0 y ulteriores, que 
son los modelos siguientes: 



Modelos 

1540,1541,4040 

8050 

2031 

8250 

D9060, D9090 



DOS 

2.1 
2.5 
2.6 
2.7 

3.0 



Existe una manera de enviar al disco 
las instrucciones DOPEN #, DCLOSE# 
y RECORD # utilizando el BASIC 2. 
Los ejemplos de la tabla 1 , sacados del 
número anterior de esta Revista (ver 
en «Club Commodore» 9 el artículo 
de los Relativos en BASIC 4), mues- 
tran las equivalencias entre los dos 
BASICs. 

Las instrucciones INPUT#y PRINT# 
son las mismas para los dos BASICs. 

Para entender mejor los ejemplos, 
explicaremos el formato de estos nue- 
vos «comandos» que hemos añadido 
al BASIC 2: 

La instrucción OPEN es la misma 
que para los ficheros secuenciales, 
cambiando los últimos parámetros, 
por lo que queda de la siguiente ma- 
nera: 

OPEN nf,pe,ds,"dr:nombre,L" + 
CHRS(lr) 
donde: 

nf = Número de fichero lógico 
pe = Número de periférico 
ds = Dirección secundaria 
dr = Número de drive 
nombre — Nombre del fichero 

Ir = Longitud de los registros 
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ficheros relativos 
en BASIC 2 




por JORDI SASTRE 



La instrucción CLOSE no tiene difi- 
cultad: 
CLOSE nf 

La RECORD # precisa de más expli- 
cación. Necesita tener abierto el canal 
de errores y comandos (#15), por 
ejemplo OPEN 15,8,15, y su formato 
es el siguiente: 

PRINT#15,"P" + CHRS(96 + ds) + 
CHRS(rb) + CHRS(ra) + CHR$(1) 
donde: 

ds = Dirección secundaria del 

fichero (ver OPEN). 
rb = peso bajo del número de 

registro, 
ra = Peso alto del número de 

registro. 

Aquí vemos que el número de regis- 
tro debe entregarse empaquetado en 
dos bytes. La manera de hacerlo es 
muy simple: siendo NR el Número de 
registro: 

Peso bajo = INT(NR-INT(NR/256)*256) 
Peso alto =INT(NR/256) 

En adelante, cuando hablemos de 
Ficheros Relativos, los ejemplos esta- 
rán escritos en BASIC 4, por tener las 
instrucciones propias de los Ficheros 
Relativos pero, con lo dicho en este 



artículo, no tendrá ningún problema el 
que quiera trabajar con BASIC 2. 

DESCRIPCIÓN GENERAL 

DE LOS FICHEROS RELATIVOS 

Los Ficheros Relativos se llaman así 
porque permiten al programador posi- 
cionarse en cualquier punto del fiche- 
ro indicando su posición relativa con 
respecto al principio del mismo. En el 
directorio del disco se identifican me- 
diante «REL». Comparados con los Fi- 
cheros Secuenciales, existe esencial- 
mente la siguiente diferencia: el Fi- 
chero Secuencial forma un único con- 
junto con la información que contiene 
y para actualizar un dato debe leerse 
todo el fichero, efectuar la actualiza- 
ción en la memoria de la CPU y des- 
pués volver a grabar de nuevo todo 
el fichero en el disco. En cambio, el 
Fichero Relativo se divide en diferen- 
tes zonas, que llamaremos «registros». 
Cada registro contiene un solo regis- 
tro lógico de manera que, cuando se 
desean actualizar datos, basta con ges- 
tionar los registros pertinentes, per- 
maneciendo inalterable el contenido 
restante del fichero. 

Un Fichero Relativo se compone de 
tres partes: 



TABLA 1 


BASIC 4 


BASIC 2 


DOPEN#1,"FICHERO",L50 


OPEN1,8,4,"0:FICHERO,L," + 


CHR$(50) 


DOPEN #1, "FICHERO" 


OPEN1,8,4,"0:FICHERO" 


DCLOSE#1 


CLOSE1 


RECORD #1,100 


PRINT #15,"P" + CHR$(96 + 4) + 




CHRS(100) + CHRS(0) + CHR$(1) 


RECORD #1,(NR) 


PRINT#15,"P" + CHRS(96 + 4) + 




CHR$(NR-INT(NR/256)*256) + 
CHRS(INT(NR/256)) + CHRS(1) 



— Los «bloques» de datos del usuario. 

— Los «sector-índices», de uso interno 
del DOS, que direccíonan sobre los 
bloques de datos. 

— Un «super sector-índice», también 
de uso interno del DOS y sólo en los 
modelos 8250, D9060 y D9090, que 
direcciona sobre los «sector-índi- 
ces». 

Esta estructura, semejante a una es- 
tructura de árbol, es ajena totalmente 
al trabajo del programador con los fi- 
cheros. No obstante, vamos a expli- 
carla más a fondo: 

Un fichero se compone de registros. 
Cada registro es la zona donde el pro- 
gramador almacena los datos corres- 
pondientes a un registro lógico. Es el 
mismo programador quien define el 
número y la longitud de los registros. 
La longitud máxima de un registro es 
de 254 bytes. Más adelante hablare- 
mos del número máximo de registros. 
El programador accede al fichero por 
medio de los registros, es decir, lee 
y graba datos en el fichero indicando 
simplemente el número de registro 
con el que desea trabajar. 

Internamente, el DOS agrupa los 
registros en bloques de 256 bytes cada 
uno. Si en un bloque no cabe un nú- 
mero exacto de registros, el DOS re- 
parte el contenido de un registro en- 
tre dos bloques. El programador ma- 
neja los registros sin preocuparse pa- 
ra nada de los bloques. De la tarea de 
averiguar en qué bloque o bloques 
está contenido un registro se encarga 
el DOS. Para ello dispone de los sec- 
tor-índices. Un ejemplo de la estruc- 
tura registro-bloque puede ser el de 
la figura 1. 

Como vemos, el registro 1 cabe 
perfectamente dentro del bloque 1; 
pero el registro 2 está repartido entre 

(continúa en la pág. siguiente ) 
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(viene de la pág. anterior) 



los bloques 1 y 2; el registro 3 empie- 
za en el bloque 2 pero tiene sus últi- 
mos bytes en el 3; el registro 4 está 
íntegro en el bloque 3; etc. 

Cuando los registros tienen una lon- 
gitud de 1,2, 127 ó 254 bytes (sub- 
múltiplos de 254), en un bloque cabe 
un número exacto de registros y no 
es necesaria ninguna partición. Pero, 
por desgracia, éste es el caso menos 
frecuente. 

Cuando desea leerse un registro que 
está repartido entre dos bloques, el 
DOS carga en buffer todo el contenido 
de los dos bloques de datos en que 
reside el registro, es decir, carga el 
registro junto con sus inmediatos ve- 
cinos. Esta manera de trabajar es muy 
ventajosa en cuanto a velocidad. Las 
lecturas y escrituras de los registros 
existentes en buffer se realizan sobre 
el mismo buffer y no son actualizadas 
en el disco hasta que el programador 
se posiciona sobre un registro que no 
está contenido en la zona de datos 
actualmente en buffer. Entonces, siem- 
pre que en este buffer de disco hubie- 
ra dos o más registros, el programador 
podrá trabajar con ellos sin que en 
ningún momento sea necesario utilizar 
el disco. Sólo cuando el fichero se 
cierre, o se acceda a uno de los regis- 
tros que en aquel momento no estén 
en buffer, el DOS se verá obligado a 
grabar el contenido actualizado de es- 
tos registros en el disco. 

Un sector-índice es un bloque de 
disco (256 bytes) que apunta hasta 
120 bloques de datos. Por medio de 
ellos, el DOS puede calcular, según la 
longitud y el número de registros del 
fichero, en qué bloques está conteni- 
da la información correspondiente a 
un registro determinado. El Fichero 
Relativo puede disponer de un máxi- 
mo de seis sector-índices, que direc- 
cionan sobre 720 (6 x 120) bloques de 



datos, o sea sobre 182.880 (720 X 254) 
bytes útiles para el programador, sea 
cual sea el número de registros y la 
longitud de los mismos. 
El formato de un sector-índice es el 



0-1 Dirección (Pista-Sector) al pró- 
ximo sector-índice. 

2 Número de sector-índice en mo- 
delos 1540, 1541, 4040, 8050. 
SFE constante en modelos 8250, 
D9060, D9090. 

3 Longitud del registro. 

4-5 Dirección (Pista-Sector) del pri- 
mer sector-índice. 
6-7 Dirección (Pista-Sector) del se- 
gundo sector-índice. 
8-9 Dirección (Pista-Sector) del ter- 
cer sector-índice. 

10-11 Dirección (Pista-Sector) del 
cuarto sector-índice. 

12-13 Dirección (Pista-Sector) del 
quinto sector-índice. 

14-15 Dirección (Pista-Sector) del 
sexto sector-índice. 

16-17 Dirección (Pista-Sector) del 
bloque de datos 1 . 

18-19 Dirección (Pista-Sector) del 
bloque de datos 2. 

(...) (...) 

254-255 Dirección (Pista-Sector) del 
bloque de datos 120. 
Para calcular la ocupación de un Fi- 
chero Relativo en el disco debe efec- 
tuarse lo siguiente: primero, multipli- 
car el número de registros por su lon- 
gitud para obtener el número de bytes 
que se necesitan; seguidamente, divi- 
dir los bytes por 254, redondeando 
hasta el próximo entero, para saber 
los bloques de datos necesarios para 
albergar los bytes. Dividiendo el nú- 
mero de bloques entre 120 (redon- 
deando de nuevo al próximo entero), 
sabremos los sector-índices necesa- 



BLOOUE 1 



REGISTRO 
1 



BLOQUE 2 



REGISTRO 
2 



BLOQUE 3 



REGISTRO 
3 



REGISTRO 
$ 



BLOQUE 4 



REGISTRO 
5 



BLOQUE 5 



REGISTRO 
6 



BLOQUE 6 



REGISTRO 
7 



REGISTRO 
8 



Fig. 1 



rios que, sumados al número de blo- 
ques de la anterior operación, nos 
dará el número total de bloques de 
disco que ocupará el Fichero Relativo. 

He mencionado antes que los Fiche- 
ros Relativos de los modelos 8250, 
D9060 y D9090 disponen de un «super 
sector-índice». Ello no es más que un 
sector-índice que direcciona sobre un 
máximo de 127 sector-índices del mis- 
mo modo que un sector-índice direc- 
ciona sobre los bloques de datos. Así 
se consigue (sólo en los modelos men- 
cionados) multiplicar por 127 la ca- 
pacidad máxima del Fichero Relativo 
(23.225.760 bytes), a costa de un blo- 
que más de ocupación del mismo en 
el disco. Pero, ¡atención!: a esta capa- 
cidad no puede llegarse nunca, pues 
existe un tope de 65.535 registros por 
fichero. Multiplicando 65.535 (número 
máximo de registro) por 254 (número 
máximo de bytes por registro) nos da 
la capacidad máxima del Fichero Rela- 
tivo en los modelos mencionados, que 
es de 16.645.890 bytes ó 66.086 blo- 
ques. Pero de nuevo nos hallamos ante 
una nueva cifra teórica, pues este vo- 
lumen supera la capacidad de cual- 
quiera de estos tres modelos. Por tan- 
to, baste decir que los Ficheros Rela- 
tivos en los modelos 8250, D9060 y 
D9090 no tienen límite de capacidad. 

El Fichero Relativo utiliza tres buf- 
fers de disco (uno para el sector-índice 
y dos para bloques de datos), a dife- 
rencia del Fichero Secuencial que usa 
sólo dos. Puesto que existe un total 
de diez buffers disponibles para fiche- 
ros, únicamente pueden mantenerse 
abiertos a la vez tres Ficheros Relati- 
vos. 

Cada registro sólo puede grabar- 
se mediante una única instrucción 
PRINT #, al término de la cual el DOS 
rellena las restantes posiciones del 
registro (si quedaran) con ceros bina- 
rios. Esto también implica que cuando 
el DOS lee un registro, lo hace hasta 
el último byte que no es cero, tras lo 
cual se posiciona automáticamente en 
el inicio del siguiente registro. 

¡Atención al párrafo anterior! Si en 
un registro se tienen, por ejemplo, 
50 bytes de información, no pueden 
actualizarse únicamente los 10 prime- 
ros pensando que los restantes 40 van 
a permanecer intactos: deben re-gra- 
barse los 50 de nuevo. Y, por otra par- 
te, si el programador desea grabar 
información empaquetada en un regis- 
tro, debe usar, como terminador de 
registro, un carácter de retorno de 
carro (CHRS(1 3)) para salvaguardar los 
ceros binarios que formen parte del 
empaquetado. 

En el próximo número... ¡hablare- 
mos de Relativos! m 
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SOFTWARE DE BASE (V) 



funciones CHR$ 



y ASCII 




por E. MARTINEZ DE CARVAJAL 



listas dos funciones ya están pre- 
sentes en el BASIC del VIC-20 pero su 
funcionamiento difiere del de algunas 
otras versiones de BASIC. En el VIC-20 
estas funciones sirven para obtener 
el código ASCII de un carácter o para 
obtener éste a partir de su valor ASCII. 
En ambos casos, sólo se maneja un 
carácter o, lo que es lo mismo, un lite- 
ral de longitud 1, siendo su mayor uti- 
lidad el control de entradas de datos 
mediante la sentencia GET. Sin embar- 
go, es fácil observar que, puesto que 
hay 255 códigos ASCII, en un solo 
carácter se pueden guardar y recupe- 
rar, mediante estas dos funciones, nú- 
meros enteros positivos entre y 255, 
lo cual supone un gran ahorro de me- 
moria respecto de las funciones usua- 
les STRS y VAL. 



A=123 

AS = STRS (A) 

PRINT LEN(AS) 

4 

PRINT VAL(AS) 
123 

AS = CHR$(AS) 
PRINT LEN(AS) 
1 

PRINT ASC(AS) 
123 

Como podéis ver, para guardar el 
mismo valor, en un caso se utilizan 
cuatro caracteres y en el otro sólo uno. 
Algunas versiones de BASIC han bus- 
cado la máxima utilidad de estas fun- 
ciones precisamente en esta faceta, 
permitiendo aplicarlas a literales de 
más de un carácter de longitud, lo cual 



supone un considerable ahorro de es- 
pacio al manejar cantidades numéricas 
convertidas a literales. En nuestro ca- 
so, para no complicar excesivamente 
las rutinas, hemos de desperdiciar 
algo de espacio para prever los casos 
de números negativos y/o con hasta 
dos decimales. Aún así, y como podéis 
ver en la siguiente tabla, el ahorro de 
memoria es considerable. 



Núm. caracteres 

3 
4 
5 
n 



Valores que puede 
contener 

± 655,32 

± 167772,07 

± 4294967,30 

± [2~(n-ir 81/100 



Las rutinas se dan en los listados 
adjuntos. ra 



PROGRAMA : 10SOFTBASECHR* 
READV. 

9008 REM CHR* 
9001 REM 

9082 REM DATOS DE ENTRADA 

9003 REM 

9004 REM X1=NUM. A COMPACTAR 
9805 REM X2=EN CUANTOS CARACTERES 
9006 REM 

9807 REM DATOS DE SALIDA 

9008 REM 

9009 REM X*=NUMERO COMPACTADO 

90 1 X*= ■"■ : FOR I = 1 T0X2 : X*=X*+CHR# < > 



iNEXTI 
9015 I=X2 

9020 N1=ABSÍX1)*100 
9030 N2=INT<Nl/256> 
9040 N3=N1-<N2*256> 
9050 N1=N2 

9060 X*=LEFT* < X* , I - 1 ) +CHR* <N3)+RIGH 
T*<X*,X2-I> 

9067 1=1-1 

9070 IF N1=0 OR 1=1 THEN 9090 
9080 GOTO 9030 

9090 IF XK0 THEN X*= ,, -"+RIGHT*<X*, 
Xl-1> 

9106 RETURN 
READV. 



PROGRAMA : 10SOFTBBASEASCI I 
READV. 

9209 REM HSCII 
9205 X1=0 

9210 F0RI=X2-1T02STEP-1 

9220 Xl = íXl+ASC<MID*ÍX*,X2-I + l,l.-)>) 
*25S 

9230 NEXTI 

9240 xi=xi+asg(Mid*íx*,X2, i :>:> 

9250 I FLEFT* < X* , 1 > = " - " THENX 1 =-X 1 
9260 X1=X1,'100 
9270 RETURN 
REHDV. 



V 



J 
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COLABORACIONES 



topo loco" 



por MANUEL TORRALBA 




¡Hola! 

Soy un vic-cioso de Barcelona. Re- 
cibo «Club Commodore» en mi casa 
cada mes y, como pedís colaboracio- 
nes, os mando este programa de jue- 
gos. 



Mi nombre es Manuel Torralba y 
tengo 13 años y el juego, que va en la 
cassette que os adjunto, se llama 
«Topo Loco». No necesita ninguna am- 
pliación de memoria. El jugador debe 
«limpiar» el huerto (la pantalla) de 



lechugas (representadas por tréboles) 
sin chocar con los bloques grises que 
hay por todo el huerto, ni tampoco 
con el rastro que deja. Cuando aca- 
bas un huerto pasas a otro, y así su- 

(termina en la pág. siguiente) 



LISTADO 



PROGRRMR:10TOPO1 



8 REM*************** 

1 REM* TOPO LOCO • 

2 REM» * 



3 REM* MANUEL 

4 REM* 

5 REM* TORRRLBfi 



6 REM*************** 

7 MN=1 :GUS=3:GOSUB3000 

8 P0KE36879 , 8 : FORT= 1 T05 : FORR= 1 T02 1 
: NEXTR ¡PRINT" [ CLR 3" 

9 FORR=1TO210¡NEXT:PRINT"[HOME 3CCRSRD3 
C CRSRD 3 C CRSRD 3 C CRSRO 3 C CRSRD 3 C CRSRO 3 

C CRSRO 3 [ CRSRD 3 [ CRSRO 3 [ CRSRD 3 [ CRSRD 3 
C CRSRR 3 [ CRSRR 3 [ CRSRR 3 [ CRSRR 3 HUERTO " 
,-MN¡NEXTT 

10 LECH=15¡P0KE36879,8¡PRINT"C CLR 3 
"¡P0KE36878,15 

11 P0KE36879,8¡PRINT"[ CLR 3":F0RL= 
1T015+P1 :POKE7680+INT<RND< 1 >*506> , 1 
02¡NEXTL 

1 2 FORL= 1 TOLECH : POKE7680+ 1 NT < RND < 1 ) 
•506), 88 

1 3 P0KE36878 , 1 5 ¡ P0KE36876 , ¡ FORE= 1 T 
O 1 20 : NEXTE : P0KE36876 , 235+L : NEXTL 

14 FORE=1TO280:NEXTE 

20 B=D:M=0:X=10:V=10:C=255 
25 GETTECLfl* 
30 I FTECLR*= " " THENGOTO80 
40 IFTECLfl*=" "THENM-1 
50 IFTECLR*="I"THENM=2 
60 I FTECLfl*- " J " THENM=0 
70 I FTECLfl*- " L " THENM=3 
80 IFM=0THENX=X-1 



81 POKE36878,15:POKE36876,190 
90 IFM=1THENV-V+1 
180 IFM=2THENV=V-1 
110 IFM=3THENX=X+1 

120 I FPEEK < 7680+22* V+X > 088RNDPEEK < 
7680+22*V+X)O32THEN GOTO150 

121 IFPEEK<7680+22*V+X>O88THEN GOT 
0130 

1 22 P0KE36878 ,15: FORN= 1 50TO250 : POKE 
36876 , N : NEXTN : P0KE36874 , : SC=SC+20 ¡ 
LECH=LECH-1 

123 IFLECH=0THENGOTO9000 
138 POKE7680+22*V+X,81 

135 FORR=lTOB¡NEXTfl:B=B-0.2 
140 POKE36876,0:GOTO25 
150 POKE7680+22*V+X,42 



160 POKE36876,0 

161 FOR fl=15TO0STEP-0.081 :C=C-1 :POK 
E36878 , fl : P0KE36879 , C ¡ P0KE36877 , 1 80 ¡ 
NEXTfi¡P0KE36877,8 

162 GUS=GUS-1 

163 IFGUS=0THEN9019 
168 GOTO 11 

190 P0KE36878,15 
1815 FORR=1TO100:NEXT 



PRINT"C CLR 3"¡P0KE36879,8¡P0K 
E36865,140 

3010 PRINT"CCRSRD3CCRSRD3C WHT 3 [CRSRR 3 
C CRSRR 3 **TOPO LOCO** " : PR I NT " C CRSRD 3 

C CRSRD 3 [ CRSRR 3 MUEVE RL TOPO LOCO " 

3011 PR I NT "[CRSRD 3 [CRSRR 3 V COME TOD 
HS " : PR I NT » C CRSRD 3 C CRSRR 3 LAS LECHUGA 
S<CSHIFX3> 

3012 PRINT" CCRSRD3 [CRSRR 3 EVITANDO C 
HOCflR" 



3020 PRINT": CRSRD 3 CON TU RRSTRO O L 
OS [ CRSRR 3 [ CRSRR 3 [ CRSRR 3 [ CRSRD 3 BLOQU 
ES GRISES" 

3021 PRINT" CCRSRD3C CRSRR 3 DIRIGE EL 
TOPO CON" 

3022 PRINT" [CRSRO 3 [CRSRR 3 I , J,L, [RVS0N3 
SPñCE [ RVSOF 3 " 

3030 PRINT"CCRSRD3[CRSRR3 POR M.TO 
RRRLBfl " 

3060 FORfiLTURfi= 1 40 TO 40STEP-0. 1 1 ¡P 
0KE36865,flLTURfl:NEXTftLTURfl 

3090 FORR1=1TO3000:NEXTR1 ¡POKE198,0 

3091 PRINT"[ CLR 3 [ CRSRD 3 C CRSRD 3 C CRSRD 3 
[ CRSRD 3 [CRSRD 3 [CRSRO 3 C CRSRD 3 <1 ES E 

L MfiS DIFICIL)" 

4000 INPUT"[HOME 3[ WHT 3 [ CRSRD 3 [ CRSRD 3 
[ CRSRD 3[CRSRD3DIFICULTRD < 1 - 1 > " ; D 

4010 D=D*15 ¡RETURN 

9000 P0KE36878,15 

9011 F0RR=1T034 : REñDT : P0KE36876 , T : 
P0KE36879 , T : FORM= 1 TO 1 50 : NEXTM : NEXTR 
¡RESTORE 

90 1 2 P 1 =P 1 +5 : MN=MN+ 1 : G0T08 
9019 P0KE36878,15 

9820 FORU= 1 T034 : REFIOfl : NEXTU 

9021 P0KE36879,8:F0RR=1T019 :REHDT ¡ 
P0KE36876 , T : F0RM= 1 TO 1 50 : NEXTM : NEXTR 

9022 PRINT" [HOME 3 [ CRSRR 3 C CRSRR 3 [ CRSRR 3 
[ CRSRR 3 [ CRSRR 3[CRSRR3CCRSRR][CRSRD3 

[ CRSRD 3[CRSRD3[CRSRD3[ CRSRD 3 [ CRSRD 3 
C CRSRD 3 GflME OVER " : FORR= 1 TO3000 : NEXT 
R:RUN 

20000 D8TB0, 0,8, 195,289,209,215,219 
,209,219,215 

20010 DflTR195,209,209,215,219,209,2 
09,207,209,289,215,219,221,219,215 

20820 DflTH209,207, 195,201 ,207,209,2 
09,8,8 

20030 DRTB0, 0,225, 223, 0,219, 215,0,?. 
09,207,201 ,207,201 , 195,0,0,225,8 

RERDV. 
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TRUCOS 

Pokes variados para 
el VIC-20 

y el COMMODORE 64 

por P. MASATS 

Se plantean normalmente algunas 
dudas relacionadas con el funciona- 
miento de los periféricos del VIC-20 
en el COMMODORE 64. Vamos a in- 
tentar aclararlas. Tanto la impresora 
VIC 1515 como la unidad de cassette 
funcionan directamente en el COM- 
MODORE 64. No obstante, utilizando 
el cassette ocurre lo siguiente: des- 
pués de dar la orden LOAD «LO QUE 
SEA» aparece el clásico mensaje 
PRESS PLAY ON TAPE. En cuanto pul- 
samos la tecla PLAY la información de 
la pantalla desaparece y la cinta co- 
mienza a moverse. Al encontrar un 
programa o un fichero, la cinta se 
para y reaparece la información visual 
indicando FOUND «LO QUE SE HAYA 
ENCONTRADO» y espera unos segun- 
dos antes de continuar. Si deseamos 
prescindir de esta espera podemos 
pulsar la tecla «COMMODORE» (la del 
logotipo) y así inmediatamente conti- 
núa la lectura de la cinta (apagándose 
la pantalla) hasta que ha finalizado la 
operación. Por lo que respecta al disco 
ocurre lo siguiente: En estos momen- 
tos se comercializa por Microelectró- 
nica y Control, S. A., una única unidad 
de disco VIC 1541 que es compatible 
con el VIC y el COMMODORE 64 sin 
ningún tipo de problema. Para aquellos 
que, por una razón u otra, posean una 
unidad de disco modelo VIC 1540 exis- 
te una ROM que permite convertirla 
en la adecuada para el COMMODORE 
64. No obstante, mediante unos POKEs 
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topo loco" 



cesivamente hasta agotar los tres to- 
pos que posees. Para hacerlo más 
difícil, la velocidad del topo se incre- 
menta poco a poco y, por cada huer- 
to, el número de bloques aumenta en 
cinco. Y además, aunque me parecía 
difícil, le añadí música, color y sonido. 

A continuación os explico el pro- 
grama: 

Línea 1: 

Define el número de topos y huer- 
tos y continúa en la línea 3000. 

Línea 8 a 9: 
Ponen en pantalla el número de 
huertos. 

Línea 10: 
Define el número de lechugas. 

Línea 11 y 12: 
Colocan las lechugas y los bloques 
en su lugar. 

Línea 20: 
Define velocidad de juego, posición 
XY y la variable de color. 

Línea 25 a 110: 
Movimiento del topo. 

Línea 120 y 121: 
Comprueban qué objeto tiene de- 
lante el topo. Si es un bloque, pasa 
a la línea 150. 

Línea 122: 

El topo ha encontrado una lechuga. 
Línea 123: 

Caso de lechugas, pasa a la línea 

9000. 



(viene de la pág. anterior) 

Línea 130: 

Pone al topo en su posición. 
Línea 135: 

Retardo (velocidad). 
Línea 140: 

Vuelve a la línea 25. 
Línea 150 a 168: 

Explosión y un topo menos. Caso 

de topos, pasan a la línea 9019. 
Línea 3000 a 3090: 

Instrucciones. 
Línea 4000 a 4010: 

Piden nivel dificultad. 
Línea 9000 a 9012: 

Música éxito (huerto vacío). 
Línea 9019 a 9021: 

Música de fin de juego. 
Línea 9022: 

Mensaje fin de juego. 
Línea 20000 a 20030: 

Datas musicales. 

Principales variables: número de 
huertos (mn), número de topos (gus), 
número de lechugas (lech), velocidad 
(b), bloques adicionales (pl), posición 
del topo (X e Y). 

Esperando noticias vuestras, se des- 
pide un colaborador Manel 

P.D. La carta la ha pasado a máquina 
mi hermano mayor, que ha corregido to- 
das (o casi todas) las faltas y ha puesto 
el rollo chulo. EL PROGRAMA ES MIO, 
LO HE HECHO YO SOLITO Y NADIE ME 
HA AYUDADO. (¡Es que nadie se cree 
que yo pueda programar asi!) ,- 



es posible utilizar el modelo 1540: 
Al ir a cargar o grabar un programa 
se debe teclear: POKE53265.1 1 : LOAD 
«NOMBRE DEL PROGRAMA», 8 (RE- 
TURN). En caso de grabar hacer lo 
mismo pero sustituyendo el LOAD por 
SAVE o VERIFY. 



La operación anterior hace desapa- 
recer el contenido de la pantalla como 
ocurre con la operación del cassette, 
excepto que no se recupera automáti- 
camente. Para ello debe hacerse POKE 
53265,27 o pulsar simultáneamente las 
teclas RUN/STOP y RESTORE. 
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DE SUSCRIPCIÓN - club commodore 



NOMBRE 

DIRECCIÓN 

POBLACIÓN ( ) PROVINCIA 

TELÉF MARCA Y MODELO DEL ORDENADOR 



EDAD 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripción con el n.° 1 1 



(Enviar a la dirección del dorso) 



Firma, 



DESEO SUSCRIBIRME A "CLUB COM- 
MODORE" POR UN AÑO AL PRECIO 
DE 1.980 PTAS., QUE PAGARÉ CON- 
TRA REEMBOLSO AL RECIBIR EL NÚ- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA SUSCRIPCIÓN ME 
DA DERECHO, NO SÓLO A RECIBIR LA 
REVISTA (ONCE NÚMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 



club commodore 
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BANCO DE PRUEBAS 



los tres nuevos programas 
para manejo de ficheros 
en cinta de Microel 




por P. MASATS 



L e toca el turno en el banco de prue- 
bas a un conjunto de programas que 
promete ser de gran utilidad para los 
usuarios del VIC-20. Se trata de tres 
programas que, convenientemente 
adaptados, permiten la CREACIÓN, 
CONSULTA, MODIFICACIÓN, LISTA- 
DO y ORDENACIÓN de cualquier tipo 
de fichero en cinta. 

Las modificaciones que ha de hacer 
el usuario para adaptar estos progra- 
mas a sus necesidades se limitan a 
unas sentencias DATA y algunas va- 
riables claramente especificadas en 
los manuales. Los programas están 
totalmente escritos en BASIC, se pue- 
den listar, modificar y guardar cuantas 
veces se desee para tener diversas 
versiones que permitan manejar dife- 
rentes ficheros. Los programas vienen 
preparados para trabajar con un fiche- 
ro de ARTÍCULOS. 

El primer programa, llamado MAN- 
TENIMIENTO DE FICHEROS (C-220), es 



el que permite crear, consultar y mo- 
dificar el fichero. 

El segundo programa, llamado LIS- 
TADO DE FICHEROS (C-221), es el 
que permite sacar por impresora los 
datos del fichero. Además de los da- 
tos relativos a los campos, hay que 
especificarle el formato de impresión 
mediante la modificación del programa 
original. 

El tercer programa, cuya denomina- 
ción es ORDENACIÓN DE FICHEROS 
(C-222), permite ordenar cualquier fi- 
chero por varios conceptos simultá- 
neamente. Utiliza una rutina de alta 
velocidad que permite ordenar 100 
registros en 19 segundos. El número 
máximo de registros a ordenar es 
de 999. 

En este programa, los datos a espe- 
cificar son los relativos a los concep- 
tos por los cuales se desea la orde- 
nación. Por ejemplo, podría ser por el 
nombre. Se puede asignar un nombre 



al fichero ordenado diferente del origi- 
nal y consultarlo, modificarlo y listarlo 
con versiones apropiadas de los pro- 
gramas anteriores. 

Los tres programas van provistos 
de su correspondiente manual y los 
puede adquirir por separado al precio 
de 3.000 ptas. cada uno, en su distri- 
buidor habitual. 



CORRECCIÓN DE UN ERROR EN EL 
PROGRAMA «LEY DE OHM», DEL MES 
DE MAYO. 

Existe un error en la línea 940 de 
dicho programa. Ésta debe ser: 

940 IF G$ = "S" THEN PRINT : 
PRINT "V = "; P/l (el resto de la 
línea es el mismo). 
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PROGRAMAS EN DISCO 

D-1001 Agenda 5.000 

Permite contener 4 páginas de informa- 
ción de 114 personas, entidades, etc. Pu- 
diendo añadir, cambiar o borrar la infor- 
mación que se desee. 

En castellano, necesita ampliación de 8K. 
Presentado en caja. 

D-1002 QSL 3.000 

Registro de contactos para radioaficiona- 
dos, versión en disco. 
Necesita ampliación de 8K. Presentado en 
caja. 

D-1003 Test Demo 3.000 

Programa de test para la unidad de disco. 
Nota: este disco es el que se suministra con 
la unidad de disco VIC-1540. 

D-1004 Assembler 5.000 

Editor y compilador en BASIC para rutinas 
en lenguaje máquina del 6502. Necesita 
ampliación de 3K. Acompañado de ma- 
nual en inglés. 

D-1005 English language 2.500 

Versión en disco del programa en cinta, 
dado que al manejar ficheros resulta mu- 
cho más rápida su utilización. 
Necesita ampliación de 8K. Presentado en 
caja. 

D-1006 Quiz Master 2.500 

Versión en disco del programa en cinta. 
Necesita ampliación de 8K. Presentado en 
caja. 

D-1007 Matemáticas 1 (nivel BUP) 2.500 

Versión en disco del programa en cinta. 
Necesita ampliación de 8K. Presentado en 
caja. 

330T Simplicalc 13.000 

Hoja de Trabajo Electrónica 60 columnas 
por 100 filas Max. Necesita ampliación 
de 16K. 

3304 Vic File 13.000 

Bases de datos para el VIC-20 con posibi- 
lidad de definir el formato de los campos. 
Necesita ampliación de 16K. Ideal para 
fichero de clientes. 

3305 Vic Writer 13.000 

Proceso de texto muy potente y rápido. 
Necesita ampliación de 8K ó 16 K. 



PROGRAMAS EN CINTA 
iranias Técnicos 



Progr 

C-128 



C-129 



C-131 



Programación lineal 1.000 

Método simplex. Cálculo del valor de las 
variables que satisfaciendo las restriccio- 
nes hacen máxima o mínima una función. 
En castellano. Presentado en caja. 

Matrices 1.000 

Suma, resta, multiplicación, multiplicación 
por un escalar e inversión de matrices. 
En castellano. Presentado en caja. 

Regresiones I 1.000 

Contenido: Regresión lineal: Cálculo por 
mínimos cuadrados de la recta que se ajus- 
ta mejor a una nube de puntos. 
Regresión múltiple: Variable dependiente 
en función de N variables independientes 
de grado 1. En castellano. Presentado en 
caja. 



C-132 Regresiones II 1.000 

Contenido: Regresión de orden N: Variable 
dependiente en función de variable inde- 
pendiente de grado N. 
Regresión exponencial: Ajuste nube de 
puntos a una curva exponencial. 
Regresión geométrica: Ajuste de una nube 
de puntos a una curva geométrica. En 
castellano. Presentado en caja. 

C-133 Estadística I 1.000 

Distribución normal, Poisson, binomial, chi- 
cuadrado, Student, F de Snedecor. En cas- 
tellano. Presentado en caja. 

C-134 Estadística II 1.000 

Contenido: Cálculo de la media, varianza 
y desviación tipo, tanto de la muestra co- 
mo de la población, estando los datos 
agrupados o no. Test de chi-cuadrado y 
test de Student. En castellano. Presentado 
en caja. 

C-135 Sistemas 1.000 

Contenido: Resolución de sistemas de N 
ecuaciones con N incógnitas. 
Resolución de ecuaciones de grado 2 dan- 
do las soluciones tanto reales como com- 
plejas. 

Cálculo de permutaciones y de combina- 
ciones. En castellano. Presentado en caja. 

C-137 Integración 1.000 

Cálculo de integrales por el método de 
Gauss. 

Cálculo de derivadas de una función en un 
punto. Interpolaciones tanto lineales como 
curvilíneas. En castellano. Presentado en 
caja. 

Programas Educativos 

C-125 Hangmath 1.500 

Se trata de averiguar la multiplicación en- 
tre 2 números (tanto los números como 
la multiplicación y el resultado final), pro- 
curando no ser ahorcado. Las instrucciones 
son en castellano. 

C-140 Skymath 1.500 

Sumas y restas para chicos muy jóvenes 
saliendo naves espaciales para motivar- 
los. Una manera de aprender jugando. 3K. 

C-141 Space División 1.500 

20 preguntas sobre divisiones muy senci- 
llas. En función de los resultados correc- 
tos, despega un cohete que llegará más o 
menos lejos. 3K. 

C-143 English Language 2.000 

Especialmente adecuado para las personas 
que, poseedoras de un buen nivel de in- 
glés, quieren alcanzar cofas superiores. 
Necesita ampliación de 8K. Presentado en 
caja y acompañado de su correspondiente 
manual. 

C-145 Mastermind 3.000 

Participe en el famoso concurso de la BBC, 
de preguntas y respuestas sobre temas 
variados. 

Este cassette va acompañado del sistema 
operativo y de un file de demostración. 
Necesita ampliación de 8K. Presentado en 
caja. 

C-146 Matemáticas I (nivel BUP) 2.000 

Contiene sistema operativo y 7 cuestio- 
narios sobre diferentes temas abarcando 
geometría, aritmética, matemáticas gene- 
rales, álgebra, etc. Necesita ampliación 
de 8K ó 16K. Presentado en caja. 



PROGRAMAS COMERCIALIZADOS POR "MICROELECTRÓNICA Y CONTROL, S.A. 
Puede encontrarlos en su distribuidor más próximo 



: microelectrónica 
y control s a 
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f t commodore 

COMPUTER 



Este es el nuevo ordenador personal 
COMMODORE 64. Un gigante de 40 cm, con 
un precio casi tan pequeño como su tamaño. 

Nadie hasta ahora había logrado ofrecerle 
64 K de memoria, 40 columnas en pantalla, 8 
sprites y un sonido de auténtica maravilla por 
sólo 110.000, — ptas. Claro que tampoco todo 
el mundo es el líder mundial en 
microordenadores . 

COMMODORE sabe perfectamente que 
para seguir siendo el número uno, tiene que 
estar constantemente en vanguardia. 
De calidad. De precios. De todo. Para ello 
investigamos constantemente. 

Afortunadamente nuestra labor se ve 



plenamente recompensada cuando vemos, 
como lo demuestra el cuadro comparativo, 
que nuestro más directo competidor cuesta 
nada menos que un 100% más caro. Y ello sin 
reunir todos los adelantos técnicos del 
COMMODORE 64. 



1 . Capacidad total de memoria RAM de 
64 K. Interpretador BASIC extendido y sistema 
operativo residentes en ROM. 

2 . Dotado del más potente chip 
sintetizador de sonido diseñado hasta hoy, el 
COMMODORE 64 ofrece 3 voces totalmente 
independientes con una gama de 9 octavas. 
El programa puede controlar la envolvente, 
la afinación y la forma de onda de cada voz, 



convirtiendo al COMMODORE 64 en el mejor 
simulador de instrumentos. 

3 . Conectable directamente a toda una 
gama de periféricos, incluyendo unidad 

de discos, impresora de matriz de puntos o de 
margarita, plotter, comunicaciones locales 
y remotas..., y mucho más. 

4. Pantalla de alta resolución en color 
con 320 x 200 puntos directamente 
dirección ables. Capacidad en modo carácter 
de 25 líneas por 40 columnas. 



5. El chip de video, único en su género, 
permite el uso de 8 «Sprites» (figuras 
móviles en alta resolución y color). Los 
«Sprites» pueden moverse 
independientemente por programa de 
pixel» en «pixel». 



6. A cada «Sprite» se le asigna por 
programa un nivel de prioridad en caso 
de cruce con otro, consiguiendo efectos 
tridimensionales, existiendo también 
detección automática de colisiones. 

7. Teclado profesional con mayúsculas y 
minúsculas, más 62 caracteres gráficos, todos 
ellos disponibles en el teclado y visualizables 
en 16 colores, en forma normal o bien en 
video invertido. 

8. Encontrará a su disposición una 
completa gama de programas profesionales, 
incluyendo proceso de textos, sistemas de 
información, modelos financieros, 
contabilidad y muchas más aplicaciones. 

9. Están en fase de desarrollo asimismo 
otros lenguajes tales como LOGO, UCSD 
PASCAL, 'COMAL, ASSEMBLER, etc. Todos 
los programas existentes de la gama 
COMMODORE, desde el VIC-20 hasta los 
modelos CBM pueden ser adaptados 
fácilmente. 

10. Posibilidad de inserción de cartuchos 
con programas grabados en ROM, tanto 
profesionales como para educación 

y ocio. 

1 1 . Opción de un segundo procesador 
Z-80 para trabajar con sistema operativo 
CP/M (R). 
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Cícommodore 

COMPUTER 



PARA MAS INFORMACION 
DEL COMMODORE 64, 
LLAMAR O ESCRIBIR A: 
MICROELECTRONICA Y CONTROL 
c/ Taquígrafo Serra, 7, 5?. Barcelona-29 
Tel. (93)250 51 03 
d Princesa, 47, 3 o , G. Madrid-8 
Tel. (91)248 95 70 

Nombre 

Dirección 

Tel . 

Población 
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Programas Aplicaciones 

C-130 Caja 



2.000 



Dentro de una cuenta bancaria permite 
abrir hasta 100 subcuentas con su corres- 
pondiente debe y haber. Preparado para 
funcionar si se desea con impresora, uni- 
dad de discos y evidentemente cassette. 
Necesita ampliación 16K. Presentado en 
caja. 

C-136 Dieta 2.000 

En función de la edad, sexo, altura, con- 
figuración y actividad desempeñada por 
la persona, da el peso ideal. Pregunta si se 
desea seguir un régimen, y en función de 
la actividad física desarrollada da el peso 
que se debe tener y la pérdida diaria que 
se debe alcanzar hasta llegar a dicho peso 
óptimo. Está en castellano y necesita am- 
pliación de 8K. Presentado en caja. 

C-139 Vicalc 1.500 

El VIC-20 se comporta como una calculado- 
ra y utiliza la notación polaca inversa. 
Manual de instrucciones en castellano. 

C-142A Interface de RTTY y CW y cassette de CW . 25.000 

Especial para radioaficionados. 

C-142B Cassette de RTTY 2.500 

Para utilizarlo es necesario el interface de 
RTTY y CW. Especial radioaficionados. 

C-144 Quiz Master . 2.000 

Programa para preparación de cuestiona- 
rios. Especialmente adecuado para escue- 
las. En castellano. Necesita ampliación 
de 8K. 



Programas de Juegos 



C-201 



C-202 



Codemaker 1.500 

El VIC-20 inventa un código secreto, te- 
niendo que descubrirlo. Instrucciones en 
castellano y el programa en inglés. No 
necesita ampliación. 



Wall Street 

Partiendo de una situación financiera ini- 
cial, puede comprar y vender acciones dia- 
riamente en función de los precios que van 
variando. Instrucciones en castellano. Pro- 
grama en inglés. No necesita ampliación. 



1.500 



1.500 



C-203 Simple Simón 

El VIC-20 va generando una serie de notas 
musicales que el usuario debe repetir en 
la misma secuencia. El grado de dificultad 
va aumentando y cuando se comete un 
error se vuelve a iniciar el juego. Instruc- 
ciones en castellano. Programas en inglés. 
No necesita ampliación. 

C-2041 Damas 1.500 

Juego de Damas especialmente adecuado 
para niños entre los 7 y los 10 años. En 
inglés. No necesita ampliación. 

C-205 Alien Blitz 1.500 

Fabuloso juego de invasores para el VIC- 
20. No necesita ampliación. 

C-206 Kosmic Kamikaze 1.500 

Ataque masivo de naves extraterrestres, 
pudiéndole salvar tan sólo sus habilidades 
y reflejos. Necesita ampliación de 3K u 8K, 
dado que hay dos versiones del juego. 



C-207 



C-208 



C-202 



C-210 



C-211 



Star Wars 1.500 

Tan solo dispone de 1 minuto para destruir 
al enemigo!!, siendo difícil el tener coloca- 
do los invasores en el centro de la panta- 
lla para abatirlos. No necesita ampliación. 

Amok 1.500 

Solamente con su habilidad y reflejos, el 
hombre dirigido por usted podrá esquivar 
el ataque del enemigo y aniquilarlo. No 
necesita ampliación. 

The Alien 1.500 

¡El comecocos en acción! Necesita una am- 
pliación de 3K. 

Invader Fall 1.500 

Defenderá su posición frente al avance 
progresivo de naves espaciales. Debe con- 
seguir la destrucción total antes de la lle- 
gada a sus líneas. No necesita ampliación. 



1.500 



C-212 



1.500 



A-MAZ-ING 

Piérdase por un laberinto poblado de fan- 
tasmas. Necesita ampliación de 3K. 

Math-Hurdler, Monster Maze 

Math-Hurdler: Tiene que resolver la opera- 
ción matemática por usted escogida con el 
grado de dificultad y rapidez que desee. 
Monster Maze: Debe llegar al otro extremo 
del laberinto evitando que sus enemigos 
se lo coman. No necesita ampliación. 

C-213 Golf 1500 

Juegue al golf sentado cómodamente en 
su casa frente a la pantalla del televisor. 
Necesita 3K. 



i .300 



C-215 VIC Games II 

Fire: Apague un incendio con un helicóp- 
tero. 

Draw: Dibuje en la pantalla con alta reso- 
lución. 

Race: Intente imitar a Fangio en espec- 
tacular carrera de coches. No necesita 
ampliación. 



BIBLIOGRAFIA 

Manual usuario VIC-20 800 

Nociones de funcionamiento del VIC-20 y 
del lenguaje BASIC. 

Curso Introducción BASIC: Parte I 2.500 

De una manera clara y sencilla, partiendo 
de cero, se va enseñando el lenguaje del 
futuro. Este libro va acompañado de dos 
cassettes con 17 programas en castellano. 

Curso Introducción BASIC: Parte II 2.500 

Profundización de lo tratado en Parte I, 
especialmente en creación de ficheros, ma- 
nejo de subrutinas, efectos musicales, 
aspectos animados, etc. 

VIC Revealed 1.500 

Libro que explica con detalle el funciona- 
miento interno del VIC-20. Incluye esque- 
mas. Libro en inglés. 

Programers Reference Guide 2.000 

Profundización en el manejo del VIC-20. 
Incluye referencias a rutinas lenguaje má- 
quina. Libro fotocopiado en inglés. 



PROGRAMAS COMERCIALIZADOS POR "MICROELECTRÓNICA Y CONTROL, S.A." 
Puede encontrarlos en su distribuidor más próximo 



: microelectrónica 
y control s a 
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Este programa de trazado gráfico en 
Alta Resolución está preparado para 
funcionar en un VIC en su configura- 
ción mínima de 5K con 1K de reserva. 
Cuando ejecutemos el programa, la 
pantalla se volverá negra {POKE 36879, 
8). Deberá esperar unos segundos pa- 
ra que el VIC ejecute los bucles. Pulse 
la tecla 'D', y un pixel aparecerá en 
la pantalla; pulsando 'E' desaparecerá. 

El pincel puede moverse continua- 
mente o de pixel en pixel. El movi- 
miento continuo está controlado por 
las teclas de función, mientras que el 
trazado pixel a pixel está controlado 
por las teclas '<', *>',y los con- 
troles de cursor. El pincel dibujará a 
la izquierda, a la derecha, hacia arriba, 
o hacia abajo, y también en las cuatro 
direcciones en diagonal. La tecla '$' 
para todo movimiento de pincel. Es 
posible también mover el pincel sin 
dibujar pulsando la tecla 'M'. 



Pincel para 
el VIC 

por P. MASATS 

REROV. 

50 P0KE56,24!P0KE52,24 

60 P0KE36869,255 

70 FORI=7168TO7679¡POKEI,0:NEXT 

80 P0KE36S79,8 :PRINTCHR*< 147> 

90 FORI=7630TO8191 :POKEI , 160 :NEXTI 

100 FORL=0TO7:FORM=0TO7 

110 P0KE784 1 +M*22+L , L*8+M 

120 NEXT:NEXT 

130 GETB* 

140 IFB*="D"THEHC*="D" 

150 IFB*="E"THENC*="E" 

160 IFB*="M"THENC*="M" 

170 IFB*="CHOME ] "THENX=0 : V=0 

180 IFB*="S"THENR*="" 



TRES NUEVOS JUEGOS 
PARA EL VIC-20 

NINGUNO DE ESTOS PROGRA- 
MAS NECESITA AMPLIACIÓN DE 
MEMORIA. LOS TRES SON CO- 
MERCIALIZADOS POR MICROE- 
LECTRÓNICA Y CONTROL, S.A. A 
TRAVÉS DE SU RED DE DISTRI- 
BUIDORES 



* 



C-216 BLITZ. Juegue a bombardear 

una ciudad hasta dejarla 
"COMO LA PALMA DE LA MANO" 





C-219 TYPE A TUNE. 
Convierta a su VIC-20 en un 
instrumento musical 



C-217 HANOI. 
Un sutil y endemoniado 
"JUEGO ORIENTAL" 




190 IFB*="t Fl ]"ORB*="C F2 D "ORB 
*="[ F3 ]"ORB*="C F4 :"ORB*="C F5 J 
"ORB*="C F6 ]"ORB*="C F7 ]"ORB*=" 
C F8 ]"THENfi*=B* 

200 IFB*="C CLR ]"THEN220 

210 GOTO230 

223 fori=7168tq7679:pokei,0:next 
230 ifb*="ccrsrr]"thenx=x+1 
240 ifb*= ,, cc:rsrl: ,, thenx=x-i 
250 i fb*= " c crsru 1 " thenv=y- 1 
260 i fb*= " c crsrd ] " thenv=v+ 1 
270 i fb*= " , " thenx=x- 1 : v=v+ 1 
280 ifb*=" <"thenx=x-1 :v=v-1 
290 i fb*= " . " thehx=x+ 1 : v= v+ 1 
308 i fb*= " > " thenx=x+ 1 : v=v- 1 

310 IFfl*="C Fl 3"THENX=X+1 

320 IFñ*="C F3 :rTHENV=V+l 

330 IFR*="C F5 ]"THENX=X-1 

340 IFR*="C F7 ]"THENV=V-1 

350 IFR*="C F2 D"THENX=X+1 :V=V+1 

360 IFR*="C F4 ]"THENX=X-1 :V=V+1 

370 IFFI*="C F6 :"THENX=X-1 :V=V-1 

380 IFñ*="C FS D"THEHX=X+1 :V=V-1 

390 IFX<0THENX=0 

400 IFX>62THENX=62 

410 IFV<0THENV=0 

420 IFV>62THENV=62 

430 CH=INT<X/8>*8+IHTCV/8> 

440 RO= < Y/8-1 NT < Y/8 >>*8 

450 BY=7168+8*CH+R0 

460 BI=7-CX-ÍINT';X/8)*8)> 

470 I FC*= "D" THENPOKEBV , PEEK (BY>0R<2 
TBIJ 

480 I FC*= " M " THENPOKEBY , 0ORPEEK < BV > 
490 IFC*="E' , THEHPOKEBV,0 
580 GOTO 130 
RERDY. 



Ahora el VIC -20 y CBM 64 
pueden comunicarse con Periféricos Commodore 





USUARIOS DEL VIC-20 y CBM 64 
Le gustaría tener acceso a cualquiera 




los siguientes pentencos desde su computador? 

* Discos de 1 /3 megabyte (Commodore 4040) 

* Discos de 1 megabyte (Commodore 8050) 

* Discos de 2 megabyte (Commodore 8250) 

* Discos de 10 megabyte (Commodore 9090 discos duros) 

* Impresoras con IEEE y RS 232 matricial y margarita 

* Instrumentos IEEE, como voltímetros, plotters, etc. 
Ahora ya no se queda Vd. limitado por el VIC y la 
serie de los 64. Simplemente añadiendo un 
INTERPOD puede Vd. aumentar ampliamente la 
potencia de su VIC-20 y usándolo con el nuevo 
CBM 64, el INTERPOD convertirá su computador 

ente potente. 



1 INTERPOD, el VIC-20 y el CBM 64 son 
capaces de llevar a cabo un software de calidad y 
profesional, tales como proceso de datos, Conta- 
bilidad, Control de stok y mucho más ... 
INTERPOD está capacitado para trabajar con 
cualquier software. No se necesitan ningún coman- 
do extra y no afecta bajo ningún aspecto para nada 
a su computador. 

Usar el INTERPOD es tan simple y fácil como: 
* Enchufar el INTERPOD en la salida de 
serie de su computador, póngalo en funcionamiento 
y ya está Vd. listo para comunicarse con cualquier 
periférico de la serie IEEE y cualquier impresora 
RS23 
EST( 



Importador para España: 

Cl. BALMES.13 
Tel. (971) 24 54 04 
Palma 
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JUEGOS 

Laberinto para. 
PET-CBM 4000 y 8000 

por R. PARDO 



El objetivo de este juego es salir del 
laberinto en el menor tiempo posible. 
Se añade realismo al juego mostrando 
sólo siete posiciones en alguna de las 
cuatro posibles direcciones de movi- 
miento. Es como si dispusiera de una 
linterna en una noche oscura, que le 



muestra varias vías de salida y con 
el desplazamiento éstas se van desva- 
neciendo. El movimiento se genera 
pulsando una tecla para movemos en 
una dirección determinada. 

Para movernos pulsaremos las si- 
guientes teclas: 



'8'= movimiento hacia arriba 
'2' = movimiento hacia abajo 
'4'= movimiento hacia la izquierda 
'6'= movimiento hacia la derecha 

Tenemos también la posibilidad de 
qúe el ordenador nos muestre la tota- 
lidad del laberinto, pero esto nos cos- 
tará puntos. Para mostrar el laberinto 
deberá pulsar '?'. 

Este juego necesita aproximada- 
mente unos 45 segundos para generar 
el laberinto. 

Para adaptar este juego a un orde- 
nador de la serie CBM 8000 deberá 
cambiar en la línea 605 el valor de VL 
de 40 a 80. íei 



REflDV . 



10 GOTO400 

100 REM LABERINTO PfíRfí PET 4000 & 8 

000 

1 1 GOSUB730 !PRINTCT:FORJ=0TO3: D=fl : 

C=S2 

120 FORI = lT07:POKEC,M<;flBS<D5:> 

130 POKEC-E<J),MCñBS<D-D<:J>)> :POKEC 
+ECJ>,M<D+D<;j)> 

140 IFM<D)=WLTHEN160 

1 50 D=D+fi (. J y /2 : C=C+E < J+ 1 > : NEXT I 

1 69 NEXT J : POKES2 , 240 : M C Fl ) =248 : RETUR 
N 

200 REM 

216 FOR I = 1 TOH : FOR J=2T0H+ 1 : P0KES2 , J 
220 M< < I*<H+2> >+J>=UL :NEXTJ :NEXTI 
300 REM GENERA LABERINTO 
310 MCH>=4 

320 J=INT<RNDCR)*4) :Z=J :P0KES2, J 

330 B=flBS<A+ABS<A<ABS<J^>)> :IFM<B)= 
WLTHENM < B > = J : Mí A+A < J ) /2 > =HL : A=B : GOT 
0320 

340 J= < J+l .1 *- C J<3 > : I FJOZTHEN330 

350 J=M ( fl > : M < A ) =HL : I F J<4THENfl=fl-fl < J 
> ¡GOTO320 

368 T1 = <3*H>+5:T2=INT<RND<R;>*2:> :IFI 
NT < T2/2 > #2=T2THENT 1 = í 2*H > +6 

362 Q 1 =- 1 : Q2=- < H+ 1 > : Q3=H+3 

364 I FT 1 = ( 2*H > +6THENQ 1 =-Q 1 : Q2=-Q2 : Q 
3=-Q3 



366 Z=INT<RNDíR>*<H-3) >*<H+2>+Tl : IF 
M<Z+Q1 > OHLTHEN366 

379 M(Z>=69 :M<Z+Q2>=WL :MCZ-QO=WL :M 
ÍZ+Q3>=WL 

380 FORI=lTOH 

382 m<3*íh+2.i+4+int<rnd<;r>*<:h-5^*< 
h+2>+int<rno<r:)*(:h-5) > >=hl 

384 nexti :return 

400 REM 

4 1 GOSUB600 : GOSUB900 : GOSUB730 : GOSU 
B200:GOSUB180 

4 1 5 GETA* : I FA*= " " THENCT=CT+ 1 : GOT04 1 
5 

420 J=- < < A*= " 8 " > +2* < A»= " 4 " > +3* < A#= " 

2">> 

425 IFA*="?"THEN500 

435 A2=A+AÍJ>/2 

448 IFM<A2)=69THEN800 

445 I FM ( A2 ) OHLTHEN4 1 5 

450 M< A>=HL :A=A2 :GOSUB100 :G0T0415 

508 REM 

5 1 GOSUB730 : F=0 : FOR I = 1 TOH : FOR J=2TO 
H+l :L=<I*<H+2)>+J 

520 POKES+J+F,M<L> :NEXTJ 

530 F=F+FF: NEXTI 

540 FORI=lTO200sNEXTI :CT=CT+500 :GOS 
UB100:GOTO415 

600 REM 

685 VL=40:H=23¡FF=VL:REM PARA 80 CO 
LUMNAS CAMBIE EL VALOR VL POR 80 



610 A(0>=2:fl<n=-<:H+2?*2:A';2>=-2:A<: 
3)=<H+2*2?*2 

620 D<0>=H+2:D<n = l :D<2>=-<H+2> :0<3 
>=-l 

630 E<0>=VL :E< 1 >=1 :E<2>=-VL :E<3>=-1 
:E<4>=VL 

640 WL= 1 68 : HL=32 : S2=32768+VL* 1 2+ INT 
CVL/2) :CT=0 

650 S=S2-VL*<CH+l)/2>+FF-<H+3>/2 

660 A=(H+2)*<H+1 > /2+<H+3>/2 :DIMM<70 
0) :DIMB<700> 

730 PRINT"C CLR ]";:RETURN 
800 REM 

810 GOSUB730:PRINT"SU PUNTUACION "; 
CT : END 

900 REM 

910 REM 

920 PRINT" LABERINTO" :PRINT 

930 PRINT"SALDRA RAPIDAMENTE " :PR 
INT"USANDO LAS " : PRINT "TECLAS DE 
CONTROL. " 

940 PRINT :PRINT"'8' ARRIBA, " 

950 PRINT" '2' ABAJO," 

960 PRINT"'4' IZQUIERDA," :PRINT" '6' 
DERECHA, " : PRINT 

970 PRINT"'?' MUESTRA EL LABERINTO" 
: PRINT "PERO CUESTA PUNTOS. " : PRINT 

980 R=0: PRINT "PULSE C R VSON 3 RETURN C R VSOF ] 



985 GETA* : I F A*= " " THEN985 

998 RETURN 

READV. 



J 



MULTICENTRO DE INFORMATICA 




!• COMECOCOS. 3 5K. A/R. G/E. JY. EXTRAORDINARIA VERSION 

1 DEL POPULAR PUCKMAN. COLOR Y MOVILIDAD INSUPERABLE . 1.900 

I* VICGAMON. +3K. JUEGO DE INTELIGENCIA QUE LE MANTENDRA 

I EN TENSION HASTA DERROTAR A SU VIC 1 .800 

[• ASTEROIDS WAR. 3,5K. C/M. A/R. G/E. JY. ESPECTACULAR BATA- 

( LLA GALACTICA CONTRA LA NUBE PROTONICA EN 3 DIMENSIONES 1 .800 

1» FROGGER. +3K y 3.5K. C/M. A/R. G/E. JY. ULTIMA NOVEDAD 

j EN EE.UU. CRUZAR EL PELIGROSO RIO Y LA AUTOPISTA SUICIDA 2.000 

I» RATMAN. +8K. C/M. A/R. G/E. DE LA BOVEDA CELESTE DES- 
I CENDERAN EXTRAÑAS RATAS ATOMICAS. ESPECTACULAR ANI- 
¡ MACION 1.900 

I» SHARK ATTACK. 3.5K. C/M. A/R. JY. EN MEDIO DEL OCEANO 
1 SERA ATACADO POR LOS PELIGROSOS TIBURONES. DEFIENDASE 
i CON SU RED ATOMICA 1.900 

[• ROX III. 3,5K Y + 8K. C/M.A/R. G/E. JY. DESDE SU SOFISTICADA 

¡ BASE LUNAR DEFIENDA SU PLANETA DEL ATAQUE DE LOS UFOS 1.800 

I» .ULTISOUND SYNTHETIZER. 3,5K. ¿UN ORGANO EN SU VIC? 

i ¿CON ACOMPAÑAMIENTO, BATERIA Y EFECTOS ESPECIALES? . . 1.900 

¡« SKI-RUN. 3.5K. C/M. A/R. G/E. DESLICESE POR LAS HELADAS 
I PISTAS DE COMPETICION. SLALOM, S/GIGANTE, DESCENSO. 
¡ 9 NIVELES 1.800 

• FIREBIRD. (SPACE PHREEKS). 3,5K. C/M. A/R. G/E. JY. AÑO 
i 3.010. VD. ES EL UNICO SUPERVIVIENTE DE LA BATALLA DE 
1 RIGE1LIAN. DEBERA COLONIZAR OTRO PLANETA Y LUCHAR 

I CONTRA LAS CRIATURAS GALACTICAS 1 .900 

• BREAKOUT. 3,5K. CONSIGA DESTRUIR LA PARED DE LADRILLOS 

| MULTICOLORES CON LA BOLA MAGICA. INCLUYE "MASTERMIND". 1.600 

• AJEDREZ. PRIMERA VERSION EN CASSETTE CON GRAFICOS EN 

I ALTA RESOLUCION. BASTANTES NIVELES DE JUEGO. (STANDARD) . 2.800 

!• SHADOWFAX. INCREIBLES GRAFICOS ANIMADOS. EL CABALLERO 
DE LAS SOMBRAS EN LUCHA CONTRA LOS JINETES DEL TIRANO 
I INVASOR. (STANDARD) 1 .900 

I • SNAKE. COLORIDO, MOVIMIENTOS Y GRAFICOS EXCEPCIONA- 
| LES. VERSION DEL FAMOSO JUEGO DE LAS SERPIENTES (SNAKE). 
* (STANDARD) 1 .900 

J« VIC PRINT. +8K. EXTRAORDINARIO Y SENCILLO PROCESADOR 
I DE TEXTOS. TABULACION, MAQUETACION, CABECERAS, COPIAS. 

CASS O DISK 2.000 

VIC LABEL. +8K. EN COMBINACION CON VIC PRINT, ELABORA 
ETIQUETAS PARA DIRECCIONES 1 .900 

VIC POST. +8K. ELABORA LETRAS Y TEXTOS ESPECIALES EN 
TAMAÑO Y FORMA PARA POSTERS, LISTAS DE PRECIOS, ETC. . . 2.900 
VIC CALC. HERRAMIENTA DE CALCULO QUE SUSTITUYE AL LAPIZ, 
PAPEL Y CALCULADORA, REALIZA COMPLEJOS MODELOS FINAN- 
CIEROS CON POSIBILIDAD DE AJUSTARLO A OTROS PARAMETROS 
CON SOLO PULSAR UNA TECLA. 16K DE MEMORIA 3.200 



• MYRIAD. +3K. C/M. A/R. G/E. JY. LA MAS ESPECTACULAR 
AERONAVE PARA DESTRUIR LAS CRIATURAS COSMICAS EN SU 
VIAJE GALACTICO 



2.000 I 



• COSMIADS. 3,5K. C/M. A/R. G/E. JY. VERSION ULTRARRAPIDA 
DEL MUNDIALMENTE FAMOSO JUEGO "GALAXIANS". INCREIBLES 
EFECTOS SONOROS 1.700 



BLITZRIEG. 3,5K. C/M. A/R. G/E. JY. DESTRUYA LA CIUDAD 
ENEMIGA CON SU BOMBARDERO. 25 NIVELES DE JUEGO 



1.600 



• DEFENSA. +8K. C/M. A/R. G/E. JY. N.° 1 EN INGLATERRA, 
COMO GUERRERO GALACTICO DEBE DEFENDER A LOS HUMA- 
NOIDES CONTRA LOS ENEMIGOS CIBERNETICOS. 9 NIVELES DE 
JUEGO. ESPECTACULAR NAVE Y SONIDOS 2.000 

• VIC PANIC. 3,5K. C/M. A/R. G/E. JY. VERSION DEL POPULAR 
"SPACE PANIC". ESCALE LAS LADERAS Y HUYA DE LOS MONS- 
TRUOS 1-800 

• SKRAMBLE. 3,5K. C/M. A/R. G/E. JY. ATRAVESANDO LOS TEMI- 
BLES PASADIZOS INTERESTELARES DESTRUYA LAS BASES ENEMIGAS 1.900 

• 3D LABYR1NTH. + 8K. C/M. A/R. EXTRAORDINARIO LABERINTO 
TRIDIMENSIONAL. ¿SERA CAPAZ DE SALIR DE EL? UNO O VARIOS 
JUGADORES 1.800 

• GOLF. 3,5K. RECORRIDO DE 9 HOYOS PERO ATENCION A LOS OBS- 
TACULOS: ARBOLES, LAGOS, ETC. INCLUYE VIC MUSIC Y PIANO 1.600 

• CARRERA DE BUGGYS. 3,5K. C/M. A/R. G/E. ESPECTACULAR 
RECORRIDO. ACELERADOR. DECELERACION. 9 NIVELES 

• GRIDRUNNER. 3.SK. C/M. A/R. G/E. JY. IMPRESIONANTE VER- |g| 
SION LLENA DE COLORIDO, MOVILIDAD Y SONIDO DEL POPULAR jj| 
"CENTIPEDE" 1.900BI 

• HI-RES. 3.5K. GRAN JUEGO DEMO UTILIDAD PARA REALIZAR |¡| 
EN PANTALLA GRAFICOS EN ALTA RESOLUCION. INCLUYE GEN. ■ 





CARACTERES. 



1.500 I 



• ABDUCTOR. LAS CRIATURAS COSMICAS DEL PLANETA "ALPHA I" j 
INTENTARAN SECUESTRAR A LOS HUMANOIDES PARA CONSEGUIR I 
ENERGIA E INTELIGENCIA SUPERIORES. TU MISION SERA DEFEN- 
DER TU PLANETA Y DESTRUIR LAS NAVES ABDUCTORAS. (STAN- I 
DARD) 1.800 

• TRAXX. VERSION DEL CONOCIDO JUEGO "AMIDAR "; MEZCLA 1 
DEL POPULAR "PACKAAAN" Y DEL JUEGO "QUIX". 100% CODIGO 
MAQUINA. GRAFICOS EN ALTA RESOLUCION. ESPECTACULAR 
SONIDO Y COLOR. 8K DE MEMORIA 2.000 



i VIC BASE. 16K. POTENTE BANCO DE DATOS. 255 CARACTERES, 
MAS DE 25 CAMPOS. CAMBIO Y LOCALIZACION, SALIDA IM- 
PRESORA 3.200 

OPCION 3,5K 1.800 

GRAPHVICS. +3K. AÑADE 18 POTENTES COMANDOS PARA PO- 
SICIONAR PUNTOS, DIBUJAR LINEAS Y TEXTOS EN ALTA RESO- 
LUCION (152X160) 2.200 

' GRAPH EDITOR i SOFTKEY 24, 3,5K. AMBOS PROGRAMAS PER- 
MITEN DISEÑAR HASTA 64 CARACTERES PARA INCORPORARLOS 
A SUS PROPIOS PROGRAMAS Y JUEGOS 2.000 



i • QUIZ-MASTER. +3K. EL MAS ESPECTACULAR AVANCE EDUCATIVO. ^ 

PERMITE LA CORRECCION Y PUNTUACION DE TODAS LAS RES 
I PUESTAS QUE RECIBE EL ORDENADOR 



>3.200 



I • QUIZ SET UP. EN TANDEM CON QUIZ— MASTER PERMITE LA ELA- 
I BORACION POR EL USUARIO DE TODO TIPO DE PREGUNTAS Y 
CUESTIONES EDUCATIVAS O DE ENTRETENIMIENTO, EGB, IDIO- 
MAS, MATEMATICAS, HISTORIA, GEOGRAFIA, ETC. CREANDO 
UN AGIL Y ATRACTIVO SISTEMA DOMESTICO/EDUCATIVO , 

!• FACEMAKER. 16K. CARICATURANDO EL ROSTRO DE SUS COMPA- 
ÑEROS Y AMIGOS EL VIC 20 PONDRA A PRUEBA EL VOCABULARIO 
s Y LA ATENCION DEL NIÑO 2.000 



• NUMBER CHASER. 16K. PROGRAMA PARA PRACTICAS DE MUL- 1 
TIPLICACION CON CARRERAS DE COCHES. ADELANTA, FRENA, 
ACELERA SEGUN LAS RESPUESTAS. 4 NIVELES DE DIFICULTAD . . . 2.000 1 

• NUMBER GULPER. 16K. JUEGO EDUCACIONAL DE COMPETICION 

CON NUMEROS PARA SUMA, RESTA, MULTIPLICACION Y DIVISION 2.000 

• WE.WANT TO COUNT. 16K PROGRAMA PARA NIÑOS A PARTIR 

DE TRES AÑOS, INVASORES, CARRERAS, ETC 2.000 1 

• TWISTER. 16K. JUEGO DE LOGICA Y CONCENTRACION. PUZZLES 
GEOMETRICOS CON SONIDO Y COLOR 2.000 



VIC REVEALED 



2.200 



■ GETTIN ACQUAINTED WITH YOUR VIC 

I 20 1.800 

* 50 PROGRAMAS LISTADOS I 1 .500 



ASSEMBLER 2.000 

SYNPHONY MELANCHOLY COMP 1.800 

50 PROGRAMAS LISTADOS II 1.500 



ZAP! POW! BOOM! 1.8001 

VIC INNOVATIVE 2.0001 

50 PROGRAMAS LISTADOS III 1 .500 i 
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en discos 



(i) 



por MANUEL AMADO 

(M.E.C. SOFT) 




INTRODUCCIÓN 



di presente artículo es el primero 
de una serie de introducción a las téc- 
nicas de manejo y tratamiento de da- 
tos en las unidades de disco COMMO- 
DORE, siendo válidas igualmente pa- 
ra los monofloppys 1540 y 1541 de la 
serie de ordenadores personales. Pero 
sobre todo, esta serie de artículos es- 
tará enfocada principalmente al trata- 
miento de los dual floppy COMMODO- 
RE (4040, 8050, 8250). 

Empecemos considerando dos con- 
ceptos de la palabra fichero que se 
usan conjuntamente en el desarrollo 
de una aplicación informática y que 
corresponden — en el caso de traba- 
jar con floppys COMMODORE — a dos 
realidades diferenciadas. 

Fichero Lógico. — Es un tipo de orga- 
nización de los datos almacenados. 
Está formado por una serie de elemen- 
tos llamados registros, y éstos, a su 
vez, se dividen en campos, que acos- 
tumbran a contener un mismo tipo de 
dato cada uno. Se corresponde total- 
mente con el concepto de fichero des- 
de el punto de vista de aplicaciones de 
gestión. Por ejemplo, si tenemos un 
fichero llamado CLIENTES, éste puede 
constar de 500 registros, en donde 
cada registro tendrá un Nombre, Di- 
rección y Teléfono, o sea 3 Campos 
diferentes. 

Fichero Disco o Fichero Físico.— En 

este caso nos referimos a un tipo de- 
terminado de almacenamiento FÍSICO 
de la información en un soporte mag- 
nético. Se trata de un floppy. El pro- 
gramador será el que organizará con- 
venientemente el fichero en los dife- 
rentes registros y campos de que 
conste su fichero lógico. COMMODO- 
RE tiene tipos distintos de ficheros 
de disco, que son: 



FICHERO SECUENCIAL 

En él los datos están almacenados 
uno a continuación de otro, accedién- 
dose sucesivamente a los diferentes 
datos almacenados. Para leer un dato 
hay que empezar a leer desde el prin- 
cipio del fichero hasta encontrar el 
que se busca. 

FICHERO PROGRAMA 

Este tipo de fichero se utiliza para 
almacenar los programas en el disco. 
Su característica más sobresaliente 
es que se puede cargar y grabar de 
una sola vez desde memoria, median- 
te las instrucciones LOAD y SAVE. 

FICHERO RANDOM 

o de ACCESO DIRECTO 

Es también un fichero de datos y su 
principal característica es que se trata 



de un fichero diseñado por el propio 
programador, y en el que se accede 
directamente a un determinado bloque 
del disco, indicando en cada caso la 
pista y sector deseados. 

FICHERO RELATIVO 

Igualmente es un fichero de datos 
y el método normal de acceso a los 
datos es el acceso a un NÚMERO DE 
REGISTRO determinado, que es en el 
que se halla el dato que deseamos 
leer. 

En algunos de ellos, relativos o ran- 
dom, el fichero sí que está dividido 
en registros o fichas, y son accesibles 
individualmente. Pero en otros casos 
no, como el secuencial, en el que es 
el programador el que tiene que esta- 
blecer la organización lógica del fiche- 
ro en sus diferentes registros y cam- 
pos. 



FICHEROS SECUENCIALES 



Cas el tipo de fichero disco más 
elemental, almacenándose los datos 
uno detrás de otro, SECUENCIALMEN- 
TE según el orden en que se hayan 
grabado. 

Su principal característica estriba 
en que para leer un determinado da- 
to, hay que leer todo el fichero desde 
el principio hasta que se encuentra 
el dato deseado. Asimismo, si se de- 
sean añadir nuevos datos, habrá que 
releer y grabar totalmente el conteni- 
do anterior del fichero antes de pro- 
ceder a la inserción del nuevo dato, 
y grabar a continuación todo el fiche- 
ro otra vez. Es, en realidad, como un 
fichero de datos de una cinta cassette 
pero con la ventaja de un acceso mu- 
chísimo más rápido y que cada fichero 



secuencial sí que puede accederse 
directamente, sin tener que leer todo 
el disco. 



1.1. COMANDOS BASIC DE 
ACCESO Y TRATAMIENTO DE LOS 
FICHEROS SECUENCIALES 

Naturalmente, la anterior diserta- 
ción teórica es realmente bonita, pe- 
ro ¿cómo se almacena y cómo se 
puede gestionar la información guar- 
dada en un fichero secuencial? 

Esto es lo que vamos a ver en los 
siguientes apartados, empezando por 
los comandos BASIC que van a permi- 
tir manejar dichos ficheros. Pero an- 
tes de pasar a describirlos, voy a des- 
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almacenamiento 
en discos 

(viene de la pág. anterior) 

arrollar una corta explicación de la 
filosofía de trabajo de los ficheros 
propios de COMMODORE. Me expli- 
co: 

En la gestión de todo fichero, se 
distinguen cuatro operaciones total- 
mente diferenciadas y que pueden 
realizarse o no independientemente 
unas de otras (según el tipo de fiche- 
ro, de aplicación, etc.]: 

A) CREACION DEL FICHERO 

B) GRABACION DE DATOS 

C) LECTURA O ACCESO A LOS 
DATOS GRABADOS 

D) MODIFICACION Y/O BORRA- 
DO DE LOS DATOS. 

A) CREACIÓN DEL FICHERO 

Estamos aquí ante un concepto, el 
de CREACIÓN de un fichero, que se- 
guramente ya será familiar para mu- 
chos de vosotros. Pues bien, y en el 
caso de ficheros CBM, la creación de 
un fichero significa simplemente la 
creación de la ENTRADA DE DIREC- 
TORIO correspondiente a dicho fiche- 
ro en el diskette, y la reserva del 
PRIMER bloque de datos en el BAM. 
El significado y estructura del direc- 
torio y BAM del disco se verán en 



profundidad en un artículo próximo; 
pero, en pocas palabras, podemos 
decir que el directorio de un disco es 
un bloque de control en el cual se al- 
macenan los nombres de los ficheros 
que se hallan en cada momento en 
el disco en cuestión y la dirección 
del disco en donde se halla dicho fi- 
chero. El BAM es un bloque especial 
de control, que sirve para que el DOS 
(Disk Operating System o Sistema 
Operativo del Disco) sepa si un bloque 
de disco está ocupado (asignado a 
algún fichero) o libre. 

Pues bien, cuando se desea alma- 
cenar información en el disco, lo pri- 
mero que hay que hacer es crear el 
fichero correspondiente, para que lue- 
go el DOS sepa en dónde ha de ir a 
buscar los datos que nosotros desee- 
mos tratar. 

Todo esto se consigue mediante un 
simple comando BASIC, el comando 
OPEN. Para la creación de un fichero 
secuencial, su formato es: 

OPEN fichero, periférico, canal, 
«drive:nombre, s(eq), w(rite)» 
Significado de cada parámetro: 

— Fichero: número de fichero ló- 
gico asignado al fichero que se desea 
crear y que servirá de referencia pa- 
ra que los comandos PRINT # , GET # e 
INPUT#, sepan cuál es el que se de- 
sea procesar. 

— Periférico: número de periférico 
de la unidad de disco. 

— Canal: número LÓGICO de canal 
del floppy a través del cual se van a 
transmitir los datos desde el soporte 
magnético. El número físico del buf- 
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Carretera Ciudad Real- Valdepeñas, Kilómetro 3 - Teléfono (926) 225713 
MIGUELTURRA (Ciudad Real) 

Distribuidor de S.C.S.-D.S.E. s/a, SITESA, TAGRA, PIHERZ, GIRÓ y otras más 

Ofrece todo lo necesario para el Radioaficionado: 
Equipos de bandas bajas KENWOOD, YAESU, SOMMERKAMP, ICOM, SWAN, etc. 

Equipos VHF KDK-FDK, YAESU, STANDARD. KENWOOD, ICOM, etc. 
Antenas CUSHCRAFT, HUSTLER, HY-GAIN, FRITZEL, TAGRA, GIRÓ, BUTTERNUT 

Amplificadores lineales para HF y VHF. TELNIX. TONO. MIRAGE, etc. 
Micrófonos, medidores, acopladores, watímetros, receptores aficionado y profesionales, 
fuentes de alimentación vanas marcas, "transverters", torretas, cables, conectores, etc. 

Distribuidor de COMMODORE 
con su ya famoso VIC-20 y sus periféricos 



fer del floppy asociado a dicho canal 
lo determina el DOS. 

— Drive: número de drive en donde 
se halla el fichero (0 ó 1). 

— S(EQ): indica que el tipo de fiche- 
ro que se va a abrir es S(EQ)uencial. 
Se puede escribir «seq» o bien abre- 
viadamente «s». 

— W(r¡te): indica que se van a en- 
viar datos desde la CPU al fichero. 
Se puede escribir «write» o abreviada- 
mente «w». La razón de que para crear 
un fichero secuencial se tenga que 
realizar en MODO escritura, estriba 
en que, si se realiza para lectura, el 
fichero tiene que existir y, por lo tan- 
to, nos daría un error de no existencia 
de fichero. 

B) GRABACIÓN DE DATOS 

Una vez abierto el fichero en modo 
escritura, se puede proceder a la gra- 
bación de los datos que deseemos 
almacenar. 

La grabación de datos se realiza 
mediante el comando: 

PRINT #NF, (datos) 

Donde NF es el número de fichero 
lógico que se había asignado en el mo- 
mento de la apertura (creación) del fi- 
chero que queremos utilizar, y (datos) 
los datos que se desean grabar, ya sea 
en forma de variables (numéricas o 
alfanuméricas), o literales especifica- 
dos en la misma instrucción. O sea: 

PRINT#2,aS,obien: 

PRINT#2, «pepe». 

En un caso estamos escribiendo en 
el fichero número 2 el contenido de 
a$, y en el otro caso simplemente 
estamos grabando en el fichero el lite- 
ral «pepe». 

Pues bien, ya sabemos cómo se 
escriben en el disco los datos que 
queramos, pero..., ¿bajo qué formato 
se graban en el disco, y cuáles son 
las diferentes posibilidades de forma- 
ción de los datos escritos con el co- 
mando PRINT # ? Pues bien, en los pró- 
ximos párrafos voy a intentar aclarar 
estos puntos. 

SEPARADORES DEL COMANDO 
PRINT # NF, 

Supongamos que ejecutamos la si- 
guiente sentencia: 

AS = "PEPE":BS="CANAS":PR!NT#3, 
A$:PRINT#3,B$ 

El contenido en disco del fichero 
será el de la Tabla 1. 

Donde cr significa el carácter de có- 
digo 13, CHRS(13) o CARRIAGE RE- 
TURN, que se graba al final de la eje- 
cución de cada comando PRINT#NF, 
siempre y cuando este comando no 
termine en una coma o un punto y co- 
ma (, o ;). Este retorno de carro es el 
que separa y establece la diferencia 
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TABLA 1 



CHAR 


P 


E 


P 


E 


cr 


C 


A 


N 


A 


S 


cr 


eof 


Byte 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 



entre un dato y otro y va a ser uti- 
lizado por el comando de lectura, 
INPUT = NF, para saber dónde acaba 
el dato que se desea leer en cada mo- 
mento, eof es la marca de FIN DE FI- 
CHERO o END OF FILE, y que nos in- 
dicará cuándo hemos llegado al final 
del fichero, provocando que la variable 
de estado ST pase a valer 64. 

Ahora bien, es realmente engorro- 
so el tener que ejecutar un comando 
PRINT- NF para cada dato que desee- 
mos grabar. Pues bien, nada más sen- 
cillo que poder grabar diferentes datos 
en un mismo comando PF¡INT# NF. 
Veamos qué sucede al ejecutar la sen- 
tencia: 

AS= "PEPE": BS= "CASA": CS = 
"SOL": PRINT# 3,AS;BS; CHRS(13);CS 
El contenido en el disco será el de 
la Tabla 2. 



Observamos que AS (PEPE) y BS 
(CASA), nos las ha grabado juntas, sin 
ninguna separación que nos permita 
IDENTIFICAR dónde acaba el dato AS 
y empieza Bl. Por esta causa al leer 
el dato mediante el comando INPUT# 
NF (no desesperar, que hablaremos 
de él más adelante con detalle), nos 
leerá AS y BS como si fuese un solo 
dato, o sea, PEPECASA. Todo ello se 
debe a que al grabar varios datos sepa- 
rados entre sí por punto y coma, 
éstos se graban uno detrás de otro sin 
separador ni separación de ninguna 
clase. Pero podemos introducir el se- 
parador, CHRS(13), ejecutando preci- 
samente un PRINT#3,CHR$(13);, tal y 
como hemos hecho al grabar CS, que 
ha quedado separada de BS por el cr 
que hemos grabado con CHRS(13). 



TABLA 2 



CHAR 
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P 


E 


C 


A 


S 


A 


cr 
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cr 
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TABLA 3 



CHAR 


S 


I 
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V 




división 

INFORMÁTICA 



La primera tienda especializada en el VIC-20 

• PROGRAMAS EN CASSETTE, DISQUETTE, etc. 
• IMPRESORA, MONITORES • PROGRAMAS PROPIOS 
• SERVICIO TÉCNICO 



INTERFACE VIC-HAM para emitir y recibir en CWy RTTY (con cualquier equipo) 
Solicite más información 



Calle Mayor, 2 - Tel. (93) 371 7043 - SAN JUST DESVERN (Barcelona) 



m H mM 



€ 

rónícci 



En sus páginas ya se han publica- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20 y para 
otros ordenadores. 

• Se han publicado artículos sobre 
los siguientes temas: 

— Serie de artículos sobre los 
microprocesadores con análi- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública, Sis- 
tema de alarma anti-robo, 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógicos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— Los cálculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable: 
aplicación real de un sistema 
controlado por microprocesa- 
dor. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65, equipo en el que se han 
incluido versiones de Basic 
para ayudar en la enseñanza 
de lenguajes de programa- 
ción. 

— Un lenguaje de alto nivel re- 
comendado para los micro- 
procesadores: el Pascal. 

— Un documentado trabajo so- 
bre las características y posi- 
bilidades de las impresoras. 

— Ejemplos de programación en 
lenguaje Pascal con el TRS-80 
y con el AIM-65. 

— Una serie de artículos sobre 
los robots y su utilización: 
características, funcionamien- 
to y aplicaciones. 

• Fichas técnicas de microprocesa- 
dores y de micro-ordenadores. 
Para números atrasados y para 
suscripción anual (1.975 ptas.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 
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Pues bien, ésta es la forma para gra- 
bar una lista de datos con un solo co- 
mando PRINT # NF, y de forma que es- 
tos datos queden diferenciados para 
poder ser leídos posteriormente por 
separado. 

Veamos ahora qué efecto produce 
el utilizar como separador una coma 
en lugar del punto y coma. Si ejecuta- 
mos: 

A$ = "SI":B$ = "N0":PRINT#3,A$,B$ 
el resultado es el de la Tabla 3. 

Se observa que al utilizar como se- 
parador la coma, nos graba en disco 10 
espacios (chr§(32)), entre cada varia- 
ble separada por la coma (para el caso 
del 8050, y, según me acaba de con- 
firmar la Redacción, 11 espacios en 
el caso del 1541). Consecuentemente, 
es realmente desaconsejable el uso de 
la coma como separador. Finalmente, 
hay que indicar que nos podemos aho- 
rrar el uso del punto y coma como 
separador en el caso de la grabación 
de variables ALFANUMÉRICAS y es 
preferible el poner en forma de varia- 
ble alfanumérica el CHR$(13). 

Por ejemplo: 
RT$ = CHRS(13):A$ = "PEPE":B$ = 
"SOL":C = 12:PRINT#3,A$RT$B$RTS 
;C 



TABLA 4 
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TABLA 5 
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Quedando en disco como se ve en 
la Tabla 4. 

CODIFICACIÓN DE 
LOS DATOS GRABADOS 

Los datos que se van grabando en 
el fichero mediante la instrucción 
PRINT # NF, se graban en el correspon- 
diente código ASCII-CBM, de la mis- 
ma forma en que están almacenados 
los strings en memoria. En el caso de 
la escritura de variables numéricas, 
se transforma su representación en 
coma flotante de cinco bytes en me- 
moria a su correspondiente represen- 
tación en forma de string ascii (tal y 
como aparecen en pantalla al realizar 
un print m1 , donde m1 es una variable 
numérica), de forma parecida a como 



si el comando PRINT #NF grabase en 
disco en vez de m1 (tal y como se 
guarda en memoria), strS(m1). Pero 
además, el comando PRINT #NF escri- 
be una marca en el disco para que, a la 
hora de realizar una lectura mediante 
el comando INPUT#, éste pueda dife- 
renciar si el dato que está leyendo es 
numérico o alfanumérico. Para ello, 
además de escribir delante del núme- 
ro un carácter space ,chrS(32)) si el 
número no tiene signo, graba al final 
del número un carácter space (chr$ 
(32)). Por ejemplo, si ejecutamos la 
ssntsncis" 

A$="PEPE":B=123456:PRINT#3,AS;B 
Tenemos cuanto se indica en la Ta- 
bla 5. 

Donde el espacio en en realidad un 
CHRS(32). 
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PROGRAMAS STANDARD Y «A MEDIDA» PARA EQUIPOS COMMODORE 






VIC-20 


SISTEMA 4000 


SISTEMA 8000 


SISTEMA 8000 






- CONTABILIDAD 


- FACTURACIÓN 


-CONTABILIDAD (10 MB) 


- FINCAS 






- GESTIÓN COMERC. 


- ALMACÉN 


- GESTIÓN COMER. 


- IND. CÁRNICAS 




• 


-STOCK ALMACENES 


- GESTIÓN COMERC. 


-9000 ARTÍCULOS 


- EMP. LIMPIEZA 






-VIDEO CLUB 


- VENTAS DETALL 


- GEST. INTEGRADA 


- COOPERATIVAS 
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- ENTRAPUNT 


-TIENDAS 


- ALMACÉN 


-TALLERES 






-ETC. 


- ETIQUETAS 


- NÓMINAS 


- COMPONENTES 








-ETC. 


- DIRECCIÓN 


- PIENSOS 










- AUTOVENTA 


-COLEG.PROFES. 










-CONTROL SOCIOS 


- CADENAS MONTAJE 










- PRODUCCIÓN 


-ETC. 




• 














Avenida César Augusto, 72 - 


Teléfonos 23 5682 y 22 65 44 
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TABLA DE EQUIVALENCIAS DEC - HEX - ASCII - PANTALLA- MNEMÓNICOS 6502 (VIC-20) 



DECIMAL 


HEX 


ASCII 


PANTALLA 


BASIC 


6502 


DECIMAL 


DECIMAL 


HEX 


128 


80 






r-0 


EN D 
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192 
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129 
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r-A 


FOR 


STA(I x) 
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C 1 
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r-B 


NEXT 
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C2 
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r-C 


DATA 
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1 32 


84 






r-D 


INPUT 


STY Z 
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r-E 


INPUT 


STA Z 
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DIM 


STX Z 
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Microprocesador: 6502 de MOS 
TECHNOLOGY de 8 bits. 
Memoria: 5 Kbytes de RAM ampliables a 32 K 
20 Kbytes de ROM ampliables a 28 K 
Pantalla: 23 lineas de 22 caracteres 
Modulador para conectar a un televisor 
normal. Salida para monitor de video. 
Colores: 8 para el marco, 16 para el fondo de 
la pantalla y ocho para los caracteres 
individuales, video inverso. 
Gráficos: Semi-gráficos por teclado y alta 
resolución por redefinición del generador de 
caracteres (situándolo en RAM). Definición de 
176 por 184 puntos. 

Teclado: Tipo QWERTY de 62 teclas más 
cuatro de función definibles por el usuario. 
Sonido: Tres voces de tres octavas cada una 
decaladas una octava entre sí, resultando una 
extensión total de cinco octavas. Un 
generador de ruido aleatorio afinable para 
efectos especiales, un control general de 
volumen. 

Programación: Lenguaje BASIC, intérprete 
residente en ROM de 8 K. Posibilidad de 
interceptar las funciones del Basic para crear 
nuevas instrucciones «a medida». El Basic del 
Vic es uno de los más rápidos actualmente en 
el mercado. 

Complementos: Port de usuario de 8 bits 
entrada/salida más dos señales de 
sincronismo. 

Bus de expansión para ampliaciones de 
memoria y periféricos. 
Port de juegos con conexión para dos 
potenciómetros (paddles), y una palanca de 
juegos (joystick). 

Almacenamiento de masa: Unidad de cassette 
C2N de diseño especial para registrar 
programas y datos (ficheros secuenciales). 



Capacidad total: 174848 bytes por disco 
Secuencia!: 168656 bytes por disco. 
Entradas de directorio: 144 por disco. 
Sectores por pista: De 17 a 21. 
Bytes por sector: 256. 
Pistas: 35. 



Bloques: 683 (644 bloques libres). 
Soportes de información: Discos estándar de 5 
1/4 pulgadas, de una sola cara y densidad 
simple. 

Sistema operativo: DOS de COMMODORE 
inteligente (tiene procesador propio y no 
ocupa memoria del ordenador central). 



Método de impresión: Matriz de 5 x7 puntos, 

impacto por un solo martillo. 

Modo caracteres: Mayúsculas y minúsculas, 

símbolos, números y caracteres gráficos del 

VIC-20. 

Modo gráfico: Puntos direccionables (bit 

image). Siete puntos verticales por columna, 

480 columna máximo. 

Velocidad: 30 caracteres/segundo, de 

izquierda a derecha, unidireccional. 

Caracteres/Linea: Máximo 80. (Posibilidad de 

impresión en doble ancho). 

Espaciado entre lineas: 6 lineas/pulgada 

-modo caracteres, 9 lineas/pulgadas - modo 

gráfico. 

Velocidad de salto de lineas: 5 saltos/seg. 
-modo caracteres, 7,5 saltos/seg. - modo 
gráfico. 

Alimentación de papel: Arrastre por tractor. 
Ancho de papel: Entre 4,5 y 8 pulgadas. 
Copias: Original más dos copias. 



Ayuda programador: Este cartucho facilita la 
edición y depuración de programas en Basic. 
Instrucciones y comandos: RENUMBER, 
MERGE, FIND, CHANGE, DELETE, 
AUTO, TRACE, STEP, OFF, KEY, EDIT, 
PROG, DUMP, HELP y KILL. 

Super expanden Intercepta el Basic del VIC 
permitiendo incrementar sus instrucciones y 



comandos en aplicaciones gráficas, de sonido 
y juegos. Instrucciones y comandos: KEY, 
GRAPHIC, COLOR, POINT, REGION, 
DRAW, CIRCLE, PAINT, CHAR, 
SCNCLR, SOUND, RGR, RCOLR, RDOT, 
RPOT, RPEN, RJOY y RSND. 

Monitor de lenguaje máquina: Este monitor 
altamente sofisticado facilita enormemente la 
depuración de programas en lenguaje 
máquina, es ideal como complemento del 
Basic para redactar y poner en marcha rutinas 
de alta velocidad y manejo de datos en tiempo 
real. Instrucciones y comandos: ASSEMBLE, 
BREAKPOINT, DISASSEMBLE, ENABLE 
VIRTUAL ZERO PAGE, FILL MEMORY, 
GO, HUNT, INTERPRET, JUMP TO 
SUBROUTINE, LOAD, MEMORY, 
NUMBER, QUICK TRACE, REGISTERS, 
REMOVE BREACPOINTS, SAVE, 
TRANSFER, WALK y EXIT TO BASIC. 

Además existen cartuchos de ampliación de 
memoria de 3, 8 y 16 Kbytes. 



En forma de libro se ha editado la 
primera parte de un curso de Basic que parte 
«de cero» y está basado en el VIC-20. Va 
acompañado de dos cassettes con programas y 
ejercicios para autocontrol de los progresos en 
el aprendizaje. 



V". 



Acabado en metal de gran robustez, permite 
la conexión de un máximo de 6 cartuchos 
simultáneamente, aloja al VIC y al modulador 
de vídeo y permite colocar encima el televisor, 
tiene alojamiento para accesorios y asegura 
una óptima conexión del VIC a sus periféricos. 
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